unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, bsSkinExCtrls,
  ImgList, bsPngImageList, ComCtrls, bsSkinTabs, bsSkinHint, OleCtrls,
  SHDocVw_EWB, EwbCore, EmbeddedWB;

type
  TForm1 = class(TForm)
    bsbsnsknfrm1: TbsBusinessSkinForm;
    bskndt1: TbsSkinData;
    bscmprsdstrdskn1: TbsCompressedStoredSkin;
    bspngmglst1: TbsPngImageList;
    lst1: TbsSkinOfficeListBox;
    bsknpgcntrl1: TbsSkinPageControl;
    bskntbsht1: TbsSkinTabSheet;
    bskntlbr1: TbsSkinToolBar;
    btn1: TbsSkinSpeedButton;
    bspngmglst2: TbsPngImageList;
    btn2: TbsSkinSpeedButton;
    bskntlbr2: TbsSkinToolBar;
    btn3: TbsSkinSpeedButton;
    bsrsrcstrdt1: TbsResourceStrData;
    bsknhnt1: TbsSkinHint;
    Emwb_1: TEmbeddedWB;
    btn4: TbsSkinSpeedButton;
    btn5: TbsSkinSpeedButton;
    btn6: TbsSkinSpeedButton;
    btn7: TbsSkinSpeedButton;
    btn8: TbsSkinSpeedButton;
    btn9: TbsSkinSpeedButton;
    btn10: TbsSkinSpeedButton;
    procedure ChangLeftMenuClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses MainMenu;

{$R *.dfm}

procedure TForm1.ChangLeftMenuClick(Sender: TObject);
begin
  ShowOfficeList(lst1,TbsSkinSpeedButton(Sender).Tag);
end;

end.

